home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS066.dsk / LIFE EXPECTANCY TEST.int < prev    next >
Text File  |  2012-02-16  |  9KB  |  248 lines
  1. 1 REM  THIS PROGRAM CACULATES TOU LIFE
  2. 2 REM  EXPECTANCY BASED ON LIFE 
  3. 3 REM  INSURANCE TABLES USED IN THE 
  4. 4 REM  INDUSTRY
  5. 5 REM  VARIABLE L IS USED COMPUTE AGE
  6. 6 REM  STARTING AT AGE 72 THE 
  7. 7 REM  QUESTIONS BASED ON THE ANSWERS
  8. 8 REM  CHOSEN EITHER ADDS OR
  9. 9 REM  SUBTRACTS FROM L
  10. 10 REM  THE STRING Q$ IS USED TO
  11. 11 REM  DETERMINE WHICH ANSWER WAS
  12. 12 REM  SELECTED.
  13. 13 REM 
  14. 14 REM 
  15. 15 REM     C.H.WILLIAMS  12/2/80
  16. 16 REM 
  17. 17 REM    FOR USE BY NSAUG MEMBERS ONLY
  18. 18 REM 
  19. 19 REM 
  20. 20 REM 
  21. 45 CALL -936
  22. 50 PRINT :PRINT :PRINT :PRINT :PRINT "        LIFE EXPECTANCY TEST"
  23. 51 PRINT :PRINT :PRINT "  IF YOU ARE REASONABLY HEALTHY AND BETWEEN 20 AND 65 YEARS OF AGE..."
  24. 52 PRINT "THIS PROGRAM PROVIDES A LIFE-INSURANCE- COMPANY'S-EYE VIEW OF THE FUTURE."
  25. 55 FOR C=1 TO 8000
  26. 56 NEXT C
  27. 95 DIM Q$(10)
  28. 100 LET L=72
  29. 110 CALL -936:PRINT "TYPE THE LETTER THAT MOST CLOSELY DESCRIBES YOU THEN HIT RETURN":PRINT 
  30. 120 PRINT "YOUR SEX IS..":PRINT 
  31. 130 PRINT " A) MALE"
  32. 140 PRINT " B) FEMALE"
  33. 150 INPUT Q$
  34. 160 IF Q$="A" THEN L=L-3
  35. 170 IF Q$="B" THEN L=L+4
  36. 180 IF Q$="A" THEN 200:IF Q$="B" THEN 200
  37. 190 PRINT "TYPE A OR B PLEASE...":GOTO 120
  38. 200 CALL -936:PRINT "QUESTION #2":PRINT 
  39. 210 PRINT " A) YOU LIVE IN AN URBAN AREA WITH A POPULATION OVER 2,000,000"
  40. 220 PRINT " B) YOU LIVE IN A TOWN UNDER 10,000 OR ON A FARM"
  41. 230 PRINT " C) NONE OF THE ABOVE"
  42. 240 INPUT Q$
  43. 250 IF Q$="A" THEN L=L-2
  44. 260 IF Q$="B" THEN L=L+2
  45. 270 IF Q$="C" THEN 300
  46. 280 IF Q$="A" THEN 300:IF Q$="B" THEN 300
  47. 290 CALL -936:PRINT "TYPE A,B OR C PLEASE":PRINT :GOTO 200
  48. 300 CALL -936:PRINT "QUESTION #3":PRINT 
  49. 310 PRINT "A) YOU WORK BEHIND A DESK"
  50. 320 PRINT "B) YOUR WORK REQUIRES REGULAR, HEAVY PHYSICAL LABOR"
  51. 330 PRINT "C) NEITHER ANSWER APPLIES"
  52. 340 INPUT Q$
  53. 350 IF Q$="A" THEN L=L-3
  54. 360 IF Q$="B" THEN L=L+3
  55. 370 IF Q$="C" THEN 400
  56. 380 IF Q$="A" THEN 400:IF Q$="B" THEN 400
  57. 390 CALL -936:PRINT "TYPE A,B OR C PLEASE":PRINT :GOTO 300
  58. 400 CALL -936:PRINT "QUESTION #4":PRINT 
  59. 410 PRINT "DO YOU EXERCISE STRENUOUSLY (TENNIS, RUNNING, SWIMMING,ETC.) 5 TIMESA WEEK FOR AT LEAST A HALF-HOUR,"
  60. 420 PRINT :PRINT "A) YES"
  61. 430 PRINT "B) NO"
  62. 440 INPUT Q$
  63. 450 IF Q$="A" THEN L=L+2
  64. 460 IF Q$="B" THEN 480
  65. 470 IF Q$="A" THEN 480
  66. 480 CALL -936:PRINT "QUESTION #5":PRINT 
  67. 490 PRINT "DO YOU LIVE WITH A SPOUSE OR A FRIEND?"
  68. 500 PRINT :PRINT "A) YES"
  69. 510 PRINT "B) NO, I'VE LIVED ALONE FOR THE LAST 10 YEARS"
  70. 520 PRINT "C) NO, I'VE LIVED ALONE FOR THE LAST 20 YEARS"
  71. 530 PRINT "D) NO, I'VE LIVED ALONE FOR THE LAST 30 YEARS"
  72. 540 PRINT "E) NO, I'VE LIVED ALONE FOR THE LAST 40 YEARS"
  73. 550 INPUT Q$
  74. 560 IF Q$="A" THEN L=L+5
  75. 570 IF Q$="B" THEN L=L-1
  76. 580 IF Q$="C" THEN L=L-2
  77. 590 IF Q$="D" THEN L=L-3
  78. 600 IF Q$="E" THEN L=L-4
  79. 610 IF Q$="A" THEN GOTO 630:IF Q$="B" THEN GOTO 630:IF Q$="C" THEN GOTO 630:IF Q$="D" THEN GOTO 630:IF Q$="E" THEN GOTO 630
  80. 620 CALL -936:PRINT "TYPE A,B,C,D OR E PLEASE":PRINT :GOTO 490
  81. 630 CALL -936:PRINT "QUESTION #6":PRINT 
  82. 640 PRINT "DO YOU SLEEP MORE THAN 10 HOURS EACH NIGHT":PRINT 
  83. 650 PRINT :PRINT "A) YES"
  84. 660 PRINT "B) NO"
  85. 670 INPUT Q$
  86. 680 IF Q$="A" THEN L=L-4
  87. 690 IF Q$="B" THEN 720
  88. 700 IF Q$="A" THEN GOTO 720
  89. 710 CALL -936:PRINT "TYPE A OR B PLEASE":PRINT :GOTO 630
  90. 720 CALL -936:PRINT "QUESTION #7":PRINT 
  91. 730 PRINT "A) YOU ARE INTENSE, AGGRESSIVE,EASILY ANGERED.":PRINT 
  92. 740 PRINT "B) YOU ARE EASYGOING, RELAXED, A FOLLOWER."
  93. 750 INPUT Q$
  94. 760 IF Q$="A" THEN L=L-3
  95. 770 IF Q$="B" THEN L=L+3
  96. 780 IF Q$="A" THEN 800:IF Q$="B" THEN 800
  97. 790 PRINT "TYPE A OR B PLEASE":GOTO 720
  98. 800 CALL -936:PRINT "QUESTION #8":PRINT 
  99. 810 PRINT "A) YOU ARE GENERALLY HAPPY"
  100. 820 PRINT "B) YOU ARE GENERALLY UNHAPPY"
  101. 830 INPUT Q$
  102. 840 IF Q$="A" THEN L=L+1
  103. 850 IF Q$="B" THEN L=L-2
  104. 860 IF Q$="A" THEN GOTO 880:IF Q$="B" THEN GOTO 880
  105. 870 PRINT "TYPE A OR B PLEASE":GOTO 810
  106. 880 CALL -936:PRINT "QUESTION #9":PRINT 
  107. 890 PRINT "HAVE YOU HAD A SPEEDING TICKET OR ACCIDENT IN THE LAST YEAR"
  108. 900 PRINT :PRINT "A) YES"
  109. 910 PRINT "B) NO"
  110. 920 INPUT Q$
  111. 930 IF Q$="A" THEN L=L-1
  112. 940 IF Q$="B" THEN GOTO 970
  113. 950 IF Q$="A" THEN 970
  114. 960 PRINT "TYPE A OR B":GOTO 880
  115. 970 CALL -936:PRINT "QUESTION #10":PRINT 
  116. 980 PRINT "DO YOU EARN $50,000 A YEAR"
  117. 990 PRINT :PRINT "A) YES"
  118. 1000 PRINT "B) NO"
  119. 1010 INPUT Q$
  120. 1020 IF Q$="A" THEN L=L-2
  121. 1030 IF Q$="B" THEN GOTO 1060
  122. 1040 IF Q$="A" THEN GOTO 1060
  123. 1050 CALL -936:PRINT "TYPE A OR B PLEASE":GOTO 980
  124. 1060 CALL -936:PRINT "QUESTION #11"
  125. 1070 PRINT :PRINT "EDUCATIONAL EXPERIENCE":PRINT 
  126. 1080 PRINT "A) FINISHED COLLEGE"
  127. 1090 PRINT "B) GRADUATE OR PROFFESSIONAL DEGREE"
  128. 1100 PRINT "C) NEITHER ANSWER APPLIES "
  129. 1110 INPUT Q$
  130. 1120 IF Q$="A" THEN L=L+1
  131. 1130 IF Q$="B" THEN L=L+2
  132. 1140 IF Q$="C" THEN GOTO 1160
  133. 1150 IF Q$="A" THEN 1160:IF Q$="B" THEN GOTO 1160:PRINT "TYPE A OR B PLEASE ":GOTO 1070
  134. 1160 CALL -936:PRINT "QUESTION #12":PRINT 
  135. 1170 PRINT "ARE YOU OVER 65 AND STILL WORKING "
  136. 1180 PRINT :PRINT "A) YES"
  137. 1190 PRINT "B) NO"
  138. 1200 INPUT Q$
  139. 1210 IF Q$="A" THEN L=L+3
  140. 1220 IF Q$="B" THEN GOTO 1250
  141. 1230 IF Q$="A" THEN GOTO 1250
  142. 1240 CALL -936:PRINT "A OR B PLEASE":GOTO 1170
  143. 1250 CALL -936:PRINT "QUESTION #13 ":PRINT 
  144. 1260 PRINT "HERIDITY INFO":PRINT 
  145. 1270 PRINT "HAS AT LEAST 1 GRANDPARENT LIVED TO 85":PRINT 
  146. 1280 PRINT "A) YES"
  147. 1290 PRINT "B) NO"
  148. 1300 INPUT Q$
  149. 1310 IF Q$="A" THEN L=L+2
  150. 1320 IF Q$="B" THEN GOTO 1350
  151. 1330 IF Q$="A" THEN GOTO 1350
  152. 1340 CALL -936:PRINT "TYPE A OR B PLEASE ":PRINT :GOTO 1260
  153. 1350 CALL -936:PRINT "QUESTION #14":PRINT 
  154. 1360 PRINT " HAVE ALL 4 GRANDPARENTS LIVED TO 80 YEARS OF AGE OR OLDER":PRINT 
  155. 1370 PRINT "A) YES"
  156. 1380 PRINT "B) NO"
  157. 1390 INPUT Q$
  158. 1400 IF Q$="A" THEN L=L+6
  159. 1410 IF Q$="B" THEN GOTO 1440
  160. 1420 IF Q$="A" THEN GOTO 1440
  161. 1430 CALL -936:PRINT "TYPE A OR B PLEASE":GOTO 1360
  162. 1440 CALL -936:PRINT "QUESTION #15":PRINT 
  163. 1450 PRINT "HAS ANY PARENT,BROTHER OR SISTER UNDER 50, HAS HAD CANCER OR A HEART CONDITION, OR HAS HAD DIABETES SINCE CHILDHOOD"
  164. 1460 PRINT :PRINT "A) YES"
  165. 1470 PRINT "B) NO"
  166. 1480 INPUT Q$
  167. 1490 IF Q$="A" THEN L=L-3
  168. 1500 IF Q$="B" THEN GOTO 1520
  169. 1510 IF Q$="A" THEN 1520
  170. 1520 CALL -936:PRINT "QUESTION #16":PRINT 
  171. 1530 PRINT "DO YOU SMOKE":PRINT 
  172. 1540 PRINT "A) NO"
  173. 1550 PRINT "B) YES 2 PACKS A DAY"
  174. 1560 PRINT "C) YES 1 TO 2 PACKS A DAY        "
  175. 1570 PRINT "D) YES 1/2 TO 1 A DAY"
  176. 1580 INPUT Q$
  177. 1590 IF Q$="A" THEN GOTO 1670
  178. 1600 IF Q$="B" THEN L=L-8
  179. 1610 IF Q$="C" THEN L=L-6
  180. 1620 IF Q$="D" THEN L=L-3
  181. 1630 IF Q$="B" THEN GOTO 1670
  182. 1640 IF Q$="C" THEN GOTO 1670
  183. 1650 IF Q$="D" THEN GOTO 1670
  184. 1660 CALL -936:PRINT "TYPE A,B,C OR D PLEASE":PRINT 
  185. 1670 CALL -936:PRINT "QUESTION #17":PRINT 
  186. 1680 PRINT "DO YOU DRINK THE EQUIVALENT OF A QUARTER BOTTLE OF LIQUOR A DAY OR MORE"
  187. 1690 PRINT :PRINT "A)NO"
  188. 1700 PRINT "B)YES"
  189. 1710 INPUT Q$
  190. 1720 IF Q$="A" THEN 1760
  191. 1730 IF Q$="B" THEN L=L-1
  192. 1740 IF Q$="B" THEN 1760
  193. 1750 CALL -936:PRINT "TYPE A OR B PLEASE":GOTO 1680
  194. 1760 CALL -936:PRINT "QUESTION #18":PRINT 
  195. 1770 PRINT "ARE YOU OVERWEIGHT":PRINT 
  196. 1780 PRINT "A) NO"
  197. 1790 PRINT "B) YES, BY 10 TO 30 LBS."
  198. 1800 PRINT "C) YES, BY 30 TO 50 LBS."
  199. 1810 PRINT "D) YES, BY 50 OR MORE LBS."
  200. 1820 INPUT Q$
  201. 1830 IF Q$="A" THEN 1910
  202. 1840 IF Q$="B" THEN L=L-2
  203. 1850 IF Q$="C" THEN L=L-4
  204. 1860 IF Q$="D" THEN L=L-8
  205. 1870 IF Q$="B" THEN 1910
  206. 1880 IF Q$="C" THEN 1910
  207. 1890 IF Q$="D" THEN 1910
  208. 1900 CALL -936:PRINT "TYPE A,B,C OR D PLEASE":PRINT 
  209. 1910 CALL -936:PRINT "QUESTION #19":PRINT 
  210. 1920 PRINT "IF YOU ARE OVER 40, DO YOU, IF A MALE GET AN ANUAL CHECKUP, OR FEMALE SEE A GYNECOLOGIST ONCE A YEAR"
  211. 1930 PRINT :PRINT "A) NO"
  212. 1940 PRINT "B) YES"
  213. 1950 INPUT Q$
  214. 1960 IF Q$="A" THEN GOTO 2000
  215. 1970 IF Q$="B" THEN L=L+2
  216. 1980 IF Q$="B" THEN GOTO 2000
  217. 1990 CALL -936:PRINT "TYPE A OR B PLEASE":PRINT 
  218. 2000 CALL -936:PRINT "QUESTION #20":PRINT 
  219. 2010 PRINT "YOUR AGE PLEASE":PRINT 
  220. 2020 PRINT "A) UNDER 30"
  221. 2030 PRINT "B) 30 TO 40"
  222. 2040 PRINT "C) 40 TO 50"
  223. 2050 PRINT "D) 50 TO 70"
  224. 2060 PRINT "E) OVER 70"
  225. 2070 INPUT Q$
  226. 2080 IF Q$="A" THEN 2180
  227. 2090 IF Q$="B" THEN L=L+2
  228. 2100 IF Q$="C" THEN L=L+3
  229. 2110 IF Q$="D" THEN L=L+4
  230. 2120 IF Q$="E" THEN L=L+5
  231. 2130 IF Q$="B" THEN 2180
  232. 2140 IF Q$="C" THEN 2180
  233. 2150 IF Q$="D" THEN 2180
  234. 2160 IF Q$="E" THEN 2180
  235. 2170 CALL -936:PRINT "TYPE A,B,C,D OR E PLEASE":PRINT 
  236. 2180 CALL -936:PRINT :PRINT :PRINT " YOU  SHOULD LIVE TO TO A RIPE OLD AGE  OF...":PRINT L
  237. 2185 PRINT :PRINT :PRINT " THE TABLE BELOW SHOWS WHAT PERCENTAGE OF THE POPULATION YOU WILL OUTLIVE,"
  238. 2186 PRINT "PROVIDING YOU MAKE IT TO A SPECIFIED AGE..."
  239. 2200 PRINT :PRINT "AGE  65  70  75  80  85  90  95  100"
  240. 2210 PRINT :PRINT "MEN  36% 48% 61% 75% 87% 96% 99% 99.9%"
  241. 2220 PRINT :PRINT "WOMAN20% 30% 39% 53% 70% 88% 97% 99.6% "
  242. 2590 REM   *************************
  243. 2600 REM   
  244. 2610 REM     C.H.WILLIAMS  12/2/80
  245. 2620 REM  
  246. 2630 REM   *************************
  247. 2640 END 
  248.